Dino Crisis Digital Press Kit/Dino Crisis Digital Press Kit.iso/mac/Xtras/Behavior Library for Java.cst/00027_Script_UI Rollover Change Pointer

Text File | 1998-04-08 | 1KB | 49 lines

-- Pointer Change on Rollover


-- Behavior Library 1.1 for Java
-- a control
-- Changes the cursor when the cursor rollsover the sprite

property outcurs,  incursSet,  oldcursor



on translate_cursor me, setting

  if chars (setting,1,1) = "C" then return (2)
  if chars (setting,1,1) = "A" then return (-1)
  if chars (setting,1,1) = "W" then return (4)
  if chars (setting,1,1) = "I" then return (1)
  return (1)
end


---

on beginSprite me
  set oldcursor = the cursor of sprite the spritenum of me
  set val =  translate_cursor( me, the incursSet of me)
  set the cursor of sprite the spriteNum of me = val

end

on endsprite me
  set the cursor of sprite the spriteNum of me = oldcursor
end

on getPropertyDescriptionList

  set p_list = [ #incursSet: [ #comment:   "Pointer:" ,#format:   #string, #default:   "Watch", #range :["Arrow", "I-Beam", "Crosshair", "Watch"] ]]

  return p_list

end


on getBehaviorDescription
  return "Changes the pointer image when the pointer rolls over the current sprite. Choose one of the Java pointers." & RETURN & "PARAMETERS:" & RETURN & "ï Pointer  - Choose a Java pointer."

end